/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tex / idxmac.tex

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 25 20 0a 25 20 69 64 78 | 6d 61 63 2e 74 65 78 0a |% .% idx|mac.tex.|
|00000010| 25 0a 25 20 4d 6f 73 74 | 20 6f 66 20 74 68 65 20 |%.% Most| of the |
|00000020| 63 6f 64 65 20 69 6e 20 | 74 68 69 73 20 66 69 6c |code in |this fil|
|00000030| 65 20 61 72 65 20 65 78 | 63 65 72 70 74 73 20 66 |e are ex|cerpts f|
|00000040| 72 6f 6d 20 6c 61 74 65 | 78 2e 74 65 78 20 61 6e |rom late|x.tex an|
|00000050| 64 20 6d 61 6e 6d 61 63 | 2e 74 65 78 2e 0a 25 0a |d manmac|.tex..%.|
|00000060| 25 20 0a 5c 64 65 66 5c | 6d 61 6b 65 61 74 6c 65 |% .\def\|makeatle|
|00000070| 74 74 65 72 7b 5c 63 61 | 74 63 6f 64 65 60 5c 40 |tter{\ca|tcode`\@|
|00000080| 3d 31 31 5c 72 65 6c 61 | 78 7d 0a 5c 64 65 66 5c |=11\rela|x}.\def\|
|00000090| 6d 61 6b 65 61 74 6f 74 | 68 65 72 7b 5c 63 61 74 |makeatot|her{\cat|
|000000a0| 63 6f 64 65 60 5c 40 3d | 31 32 5c 72 65 6c 61 78 |code`\@=|12\relax|
|000000b0| 7d 0a 5c 6d 61 6b 65 61 | 74 6c 65 74 74 65 72 0a |}.\makea|tletter.|
|000000c0| 5c 6e 65 77 69 66 5c 69 | 66 40 66 69 6c 65 73 77 |\newif\i|f@filesw|
|000000d0| 20 5c 40 66 69 6c 65 73 | 77 74 72 75 65 0a 5c 6e | \@files|wtrue.\n|
|000000e0| 65 77 69 66 5c 69 66 40 | 6e 6f 62 72 65 61 6b 20 |ewif\if@|nobreak |
|000000f0| 5c 40 6e 6f 62 72 65 61 | 6b 66 61 6c 73 65 20 0a |\@nobrea|kfalse .|
|00000100| 5c 64 65 66 5c 40 6d 61 | 6b 65 6f 74 68 65 72 23 |\def\@ma|keother#|
|00000110| 31 7b 5c 63 61 74 63 6f | 64 65 60 23 31 31 32 5c |1{\catco|de`#112\|
|00000120| 72 65 6c 61 78 7d 0a 5c | 64 65 66 5c 6e 65 77 77 |relax}.\|def\neww|
|00000130| 72 69 74 65 7b 5c 61 6c | 6c 6f 63 40 37 5c 77 72 |rite{\al|loc@7\wr|
|00000140| 69 74 65 5c 63 68 61 72 | 64 65 66 5c 73 69 78 74 |ite\char|def\sixt|
|00000150| 40 40 6e 7d 0a 5c 6e 65 | 77 77 72 69 74 65 5c 40 |@@n}.\ne|wwrite\@|
|00000160| 75 6e 75 73 65 64 0a 5c | 64 65 66 5c 74 79 70 65 |unused.\|def\type|
|00000170| 6f 75 74 23 31 7b 7b 5c | 6c 65 74 5c 70 72 6f 74 |out#1{{\|let\prot|
|00000180| 65 63 74 5c 73 74 72 69 | 6e 67 5c 69 6d 6d 65 64 |ect\stri|ng\immed|
|00000190| 69 61 74 65 5c 77 72 69 | 74 65 5c 40 75 6e 75 73 |iate\wri|te\@unus|
|000001a0| 65 64 7b 23 31 7d 7d 7d | 0a 0a 25 20 20 20 20 20 |ed{#1}}}|..%     |
|000001b0| 20 20 20 20 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |     ***|********|
|000001c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 25 20 |********|*****.% |
|000001e0| 20 20 20 20 20 20 20 20 | 20 2a 20 20 20 20 20 20 |        | *      |
|000001f0| 20 20 20 20 50 41 47 45 | 20 4e 55 4d 42 45 52 49 |    PAGE| NUMBERI|
|00000200| 4e 47 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |NG      |        |
|00000210| 2a 0a 25 20 20 20 20 20 | 20 20 20 20 20 2a 2a 2a |*.%     |     ***|
|00000220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000240| 2a 2a 2a 2a 2a 0a 25 0a | 25 20 50 61 67 65 20 6e |*****.%.|% Page n|
|00000250| 75 6d 62 65 72 73 20 61 | 72 65 20 70 72 6f 64 75 |umbers a|re produ|
|00000260| 63 65 64 20 62 79 20 61 | 20 70 61 67 65 20 63 6f |ced by a| page co|
|00000270| 75 6e 74 65 72 2c 20 75 | 73 65 64 20 6a 75 73 74 |unter, u|sed just|
|00000280| 20 6c 69 6b 65 20 61 6e | 79 20 6f 74 68 65 72 0a | like an|y other.|
|00000290| 25 20 63 6f 75 6e 74 65 | 72 2e 20 20 54 68 65 20 |% counte|r.  The |
|000002a0| 6f 6e 6c 79 20 64 69 66 | 66 65 72 65 6e 63 65 20 |only dif|ference |
|000002b0| 69 73 20 74 68 61 74 20 | 5c 63 40 70 61 67 65 20 |is that |\c@page |
|000002c0| 63 6f 6e 74 61 69 6e 73 | 20 74 68 65 20 6e 75 6d |contains| the num|
|000002d0| 62 65 72 20 6f 66 0a 25 | 20 74 68 65 20 6e 65 78 |ber of.%| the nex|
|000002e0| 74 20 70 61 67 65 20 74 | 6f 20 62 65 20 6f 75 74 |t page t|o be out|
|000002f0| 70 75 74 20 28 74 68 65 | 20 6f 6e 65 20 63 75 72 |put (the| one cur|
|00000300| 72 65 6e 74 6c 79 20 62 | 65 69 6e 67 20 70 72 6f |rently b|eing pro|
|00000310| 64 75 63 65 64 29 2c 20 | 72 61 74 68 65 72 0a 25 |duced), |rather.%|
|00000320| 20 74 68 61 6e 20 6f 6e | 65 20 6d 69 6e 75 73 20 | than on|e minus |
|00000330| 69 74 2e 20 20 54 68 75 | 73 2c 20 69 74 20 69 73 |it.  Thu|s, it is|
|00000340| 20 6e 6f 72 6d 61 6c 6c | 79 20 69 6e 69 74 69 61 | normall|y initia|
|00000350| 6c 69 7a 65 64 20 74 6f | 20 31 20 72 61 74 68 65 |lized to| 1 rathe|
|00000360| 72 20 74 68 61 6e 0a 25 | 20 30 2e 20 20 5c 63 40 |r than.%| 0.  \c@|
|00000370| 70 61 67 65 20 69 73 20 | 64 65 66 69 6e 65 64 20 |page is |defined |
|00000380| 74 6f 20 62 65 20 5c 63 | 6f 75 6e 74 30 2c 20 72 |to be \c|ount0, r|
|00000390| 61 74 68 65 72 20 74 68 | 61 6e 20 61 20 63 6f 75 |ather th|an a cou|
|000003a0| 6e 74 20 61 73 73 69 67 | 6e 65 64 20 62 79 0a 25 |nt assig|ned by.%|
|000003b0| 20 5c 6e 65 77 63 6f 75 | 6e 74 2e 0a 25 20 0a 25 | \newcou|nt..% .%|
|000003c0| 20 54 68 65 20 75 73 65 | 72 20 73 65 74 73 20 74 | The use|r sets t|
|000003d0| 68 65 20 70 61 67 65 6e | 75 6d 62 65 72 20 73 74 |he pagen|umber st|
|000003e0| 79 6c 65 20 77 69 74 68 | 20 74 68 65 20 5c 70 61 |yle with| the \pa|
|000003f0| 67 65 6e 75 6d 62 65 72 | 69 6e 67 7b 46 4f 4f 7d |genumber|ing{FOO}|
|00000400| 0a 25 20 63 6f 6d 6d 61 | 6e 64 2c 20 77 68 69 63 |.% comma|nd, whic|
|00000410| 68 20 73 65 74 73 20 74 | 68 65 20 70 61 67 65 20 |h sets t|he page |
|00000420| 63 6f 75 6e 74 65 72 20 | 74 6f 20 31 20 61 6e 64 |counter |to 1 and|
|00000430| 20 64 65 66 69 6e 65 73 | 20 5c 74 68 65 70 61 67 | defines| \thepag|
|00000440| 65 20 74 6f 20 62 65 0a | 25 20 5c 46 4f 4f 2e 20 |e to be.|% \FOO. |
|00000450| 20 46 6f 72 20 65 78 61 | 6d 70 6c 65 2c 20 5c 70 | For exa|mple, \p|
|00000460| 61 67 65 6e 75 6d 62 65 | 72 69 6e 67 7b 72 6f 6d |agenumbe|ring{rom|
|00000470| 61 6e 7d 20 63 61 75 73 | 65 73 20 70 61 67 65 73 |an} caus|es pages|
|00000480| 20 74 6f 20 62 65 20 6e | 75 6d 62 65 72 65 64 0a | to be n|umbered.|
|00000490| 25 20 69 2c 20 69 69 2c | 20 65 74 63 2e 20 20 0a |% i, ii,| etc.  .|
|000004a0| 0a 25 20 4e 75 6d 62 65 | 72 69 6e 67 20 63 6f 6d |.% Numbe|ring com|
|000004b0| 6d 61 6e 64 73 20 66 6f | 72 20 64 65 66 69 6e 69 |mands fo|r defini|
|000004c0| 74 69 6f 6e 73 20 6f 66 | 20 5c 74 68 65 43 4f 55 |tions of| \theCOU|
|000004d0| 4e 54 45 52 20 61 6e 64 | 20 5c 6c 69 73 74 20 61 |NTER and| \list a|
|000004e0| 72 67 75 6d 65 6e 74 73 | 2e 0a 25 20 5c 66 6e 73 |rguments|..% \fns|
|000004f0| 79 6d 62 6f 6c 20 70 72 | 6f 64 75 63 65 73 20 74 |ymbol pr|oduces t|
|00000500| 68 65 20 73 74 61 6e 64 | 61 72 64 20 66 6f 6f 74 |he stand|ard foot|
|00000510| 6e 6f 74 69 6e 67 20 73 | 79 6d 62 6f 6c 73 3a 20 |noting s|ymbols: |
|00000520| 61 73 74 65 72 69 73 6b | 2c 20 64 61 67 67 65 72 |asterisk|, dagger|
|00000530| 2c 20 65 74 63 2e 0a 25 | 20 54 68 65 79 20 63 61 |, etc..%| They ca|
|00000540| 6e 20 62 65 20 75 73 65 | 64 20 6f 6e 6c 79 20 69 |n be use|d only i|
|00000550| 6e 20 6d 61 74 68 20 6d | 6f 64 65 2e 0a 0a 5c 64 |n math m|ode...\d|
|00000560| 65 66 5c 61 72 61 62 69 | 63 23 31 7b 5c 40 61 72 |ef\arabi|c#1{\@ar|
|00000570| 61 62 69 63 7b 5c 40 6e | 61 6d 65 75 73 65 7b 63 |abic{\@n|ameuse{c|
|00000580| 40 23 31 7d 7d 7d 20 0a | 5c 64 65 66 5c 72 6f 6d |@#1}}} .|\def\rom|
|00000590| 61 6e 23 31 7b 5c 40 72 | 6f 6d 61 6e 7b 5c 40 6e |an#1{\@r|oman{\@n|
|000005a0| 61 6d 65 75 73 65 7b 63 | 40 23 31 7d 7d 7d 20 20 |ameuse{c|@#1}}}  |
|000005b0| 0a 5c 64 65 66 5c 52 6f | 6d 61 6e 23 31 7b 5c 40 |.\def\Ro|man#1{\@|
|000005c0| 52 6f 6d 61 6e 7b 5c 40 | 6e 61 6d 65 75 73 65 7b |Roman{\@|nameuse{|
|000005d0| 63 40 23 31 7d 7d 7d 20 | 20 0a 5c 64 65 66 5c 61 |c@#1}}} | .\def\a|
|000005e0| 6c 70 68 23 31 7b 5c 40 | 61 6c 70 68 7b 5c 40 6e |lph#1{\@|alph{\@n|
|000005f0| 61 6d 65 75 73 65 7b 63 | 40 23 31 7d 7d 7d 20 20 |ameuse{c|@#1}}}  |
|00000600| 20 0a 5c 64 65 66 5c 41 | 6c 70 68 23 31 7b 5c 40 | .\def\A|lph#1{\@|
|00000610| 41 6c 70 68 7b 5c 40 6e | 61 6d 65 75 73 65 7b 63 |Alph{\@n|ameuse{c|
|00000620| 40 23 31 7d 7d 7d 20 20 | 20 0a 5c 64 65 66 5c 66 |@#1}}}  | .\def\f|
|00000630| 6e 73 79 6d 62 6f 6c 23 | 31 7b 5c 40 66 6e 73 79 |nsymbol#|1{\@fnsy|
|00000640| 6d 62 6f 6c 7b 5c 40 6e | 61 6d 65 75 73 65 7b 63 |mbol{\@n|ameuse{c|
|00000650| 40 23 31 7d 7d 7d 0a 0a | 5c 64 65 66 5c 40 61 72 |@#1}}}..|\def\@ar|
|00000660| 61 62 69 63 23 31 7b 5c | 69 66 6e 75 6d 20 23 31 |abic#1{\|ifnum #1|
|00000670| 3e 30 20 5c 6e 75 6d 62 | 65 72 20 23 31 5c 66 69 |>0 \numb|er #1\fi|
|00000680| 7d 0a 5c 64 65 66 5c 40 | 72 6f 6d 61 6e 23 31 7b |}.\def\@|roman#1{|
|00000690| 5c 72 6f 6d 61 6e 6e 75 | 6d 65 72 61 6c 20 23 31 |\romannu|meral #1|
|000006a0| 7d 0a 5c 64 65 66 5c 40 | 52 6f 6d 61 6e 23 31 7b |}.\def\@|Roman#1{|
|000006b0| 5c 65 78 70 61 6e 64 61 | 66 74 65 72 5c 75 70 70 |\expanda|fter\upp|
|000006c0| 65 72 63 61 73 65 5c 65 | 78 70 61 6e 64 61 66 74 |ercase\e|xpandaft|
|000006d0| 65 72 7b 5c 72 6f 6d 61 | 6e 6e 75 6d 65 72 61 6c |er{\roma|nnumeral|
|000006e0| 20 23 31 7d 7d 0a 5c 64 | 65 66 5c 40 61 6c 70 68 | #1}}.\d|ef\@alph|
|000006f0| 23 31 7b 5c 69 66 63 61 | 73 65 23 31 5c 6f 72 20 |#1{\ifca|se#1\or |
|00000700| 61 5c 6f 72 20 62 5c 6f | 72 20 63 5c 6f 72 20 64 |a\or b\o|r c\or d|
|00000710| 5c 65 6c 73 65 5c 40 69 | 61 6c 70 68 7b 23 31 7d |\else\@i|alph{#1}|
|00000720| 5c 66 69 7d 0a 5c 64 65 | 66 5c 40 69 61 6c 70 68 |\fi}.\de|f\@ialph|
|00000730| 23 31 7b 5c 69 66 63 61 | 73 65 23 31 5c 6f 72 20 |#1{\ifca|se#1\or |
|00000740| 5c 6f 72 20 5c 6f 72 20 | 5c 6f 72 20 5c 6f 72 20 |\or \or |\or \or |
|00000750| 65 5c 6f 72 20 66 5c 6f | 72 20 67 5c 6f 72 20 68 |e\or f\o|r g\or h|
|00000760| 5c 6f 72 20 69 5c 6f 72 | 20 6a 5c 6f 72 0a 20 20 |\or i\or| j\or.  |
|00000770| 20 6b 5c 6f 72 20 6c 5c | 6f 72 20 6d 5c 6f 72 20 | k\or l\|or m\or |
|00000780| 6e 5c 6f 72 20 6f 5c 6f | 72 20 70 5c 6f 72 20 71 |n\or o\o|r p\or q|
|00000790| 5c 6f 72 20 72 5c 6f 72 | 20 73 5c 6f 72 20 74 5c |\or r\or| s\or t\|
|000007a0| 6f 72 20 75 5c 6f 72 20 | 76 5c 6f 72 20 77 5c 6f |or u\or |v\or w\o|
|000007b0| 72 20 78 5c 6f 72 20 79 | 5c 6f 72 0a 20 20 20 7a |r x\or y|\or.   z|
|000007c0| 5c 65 6c 73 65 5c 40 63 | 74 72 65 72 72 5c 66 69 |\else\@c|trerr\fi|
|000007d0| 7d 0a 5c 64 65 66 5c 40 | 41 6c 70 68 23 31 7b 5c |}.\def\@|Alph#1{\|
|000007e0| 69 66 63 61 73 65 23 31 | 5c 6f 72 20 41 5c 6f 72 |ifcase#1|\or A\or|
|000007f0| 20 42 5c 6f 72 20 43 5c | 6f 72 20 44 5c 65 6c 73 | B\or C\|or D\els|
|00000800| 65 5c 40 49 61 6c 70 68 | 7b 23 31 7d 5c 66 69 7d |e\@Ialph|{#1}\fi}|
|00000810| 0a 5c 64 65 66 5c 40 49 | 61 6c 70 68 23 31 7b 5c |.\def\@I|alph#1{\|
|00000820| 69 66 63 61 73 65 23 31 | 5c 6f 72 20 5c 6f 72 20 |ifcase#1|\or \or |
|00000830| 5c 6f 72 20 5c 6f 72 20 | 5c 6f 72 20 45 5c 6f 72 |\or \or |\or E\or|
|00000840| 20 46 5c 6f 72 20 47 5c | 6f 72 20 48 5c 6f 72 20 | F\or G\|or H\or |
|00000850| 49 5c 6f 72 20 4a 5c 6f | 72 0a 20 20 20 4b 5c 6f |I\or J\o|r.   K\o|
|00000860| 72 20 4c 5c 6f 72 20 4d | 5c 6f 72 20 4e 5c 6f 72 |r L\or M|\or N\or|
|00000870| 20 4f 5c 6f 72 20 50 5c | 6f 72 20 51 5c 6f 72 20 | O\or P\|or Q\or |
|00000880| 52 5c 6f 72 20 53 5c 6f | 72 20 54 5c 6f 72 20 55 |R\or S\o|r T\or U|
|00000890| 5c 6f 72 20 56 5c 6f 72 | 20 57 5c 6f 72 20 58 5c |\or V\or| W\or X\|
|000008a0| 6f 72 20 59 5c 6f 72 0a | 20 20 20 5a 5c 65 6c 73 |or Y\or.|   Z\els|
|000008b0| 65 5c 40 63 74 72 65 72 | 72 5c 66 69 7d 0a 5c 64 |e\@ctrer|r\fi}.\d|
|000008c0| 65 66 5c 40 66 6e 73 79 | 6d 62 6f 6c 23 31 7b 5c |ef\@fnsy|mbol#1{\|
|000008d0| 69 66 63 61 73 65 23 31 | 5c 6f 72 20 2a 5c 6f 72 |ifcase#1|\or *\or|
|000008e0| 20 5c 64 61 67 67 65 72 | 5c 6f 72 20 5c 64 64 61 | \dagger|\or \dda|
|000008f0| 67 67 65 72 5c 6f 72 20 | 0a 20 20 20 5c 6d 61 74 |gger\or |.   \mat|
|00000900| 68 63 68 61 72 20 22 32 | 37 38 5c 6f 72 20 5c 6d |hchar "2|78\or \m|
|00000910| 61 74 68 63 68 61 72 20 | 22 32 37 42 5c 6f 72 20 |athchar |"27B\or |
|00000920| 5c 7c 5c 6f 72 20 2a 2a | 5c 6f 72 20 5c 64 61 67 |\|\or **|\or \dag|
|00000930| 67 65 72 5c 64 61 67 67 | 65 72 0a 20 20 20 5c 6f |ger\dagg|er.   \o|
|00000940| 72 20 5c 64 64 61 67 67 | 65 72 5c 64 64 61 67 67 |r \ddagg|er\ddagg|
|00000950| 65 72 20 5c 65 6c 73 65 | 5c 40 63 74 72 65 72 72 |er \else|\@ctrerr|
|00000960| 5c 66 69 5c 72 65 6c 61 | 78 7d 0a 0a 5c 63 6f 75 |\fi\rela|x}..\cou|
|00000970| 6e 74 64 65 66 5c 63 40 | 70 61 67 65 3d 30 20 5c |ntdef\c@|page=0 \|
|00000980| 63 40 70 61 67 65 3d 31 | 0a 5c 64 65 66 5c 63 6c |c@page=1|.\def\cl|
|00000990| 40 70 61 67 65 7b 7d 0a | 5c 64 65 66 5c 70 61 67 |@page{}.|\def\pag|
|000009a0| 65 6e 75 6d 62 65 72 69 | 6e 67 23 31 7b 5c 67 6c |enumberi|ng#1{\gl|
|000009b0| 6f 62 61 6c 5c 63 40 70 | 61 67 65 20 5c 40 6e 65 |obal\c@p|age \@ne|
|000009c0| 20 5c 67 64 65 66 5c 74 | 68 65 70 61 67 65 7b 5c | \gdef\t|hepage{\|
|000009d0| 63 73 6e 61 6d 65 20 40 | 23 31 5c 65 6e 64 63 73 |csname @|#1\endcs|
|000009e0| 6e 61 6d 65 0a 20 20 20 | 5c 63 40 70 61 67 65 7d |name.   |\c@page}|
|000009f0| 7d 0a 5c 70 61 67 65 6e | 75 6d 62 65 72 69 6e 67 |}.\pagen|umbering|
|00000a00| 7b 61 72 61 62 69 63 7d | 0a 0a 25 20 5c 40 62 73 |{arabic}|..% \@bs|
|00000a10| 70 68 61 63 6b 20 2e 2e | 2e 20 5c 40 65 73 70 68 |phack ..|. \@esph|
|00000a20| 61 63 6b 0a 25 20 20 20 | 20 20 75 73 65 64 20 62 |ack.%   |  used b|
|00000a30| 79 20 6d 61 63 72 6f 73 | 20 73 75 63 68 20 61 73 |y macros| such as|
|00000a40| 20 5c 69 6e 64 65 78 20 | 61 6e 64 20 5c 62 65 67 | \index |and \beg|
|00000a50| 69 6e 7b 40 66 6c 6f 61 | 74 7d 20 2e 2e 2e 20 5c |in{@floa|t} ... \|
|00000a60| 65 6e 64 7b 40 66 6c 6f | 61 74 7d 0a 25 20 20 20 |end{@flo|at}.%   |
|00000a70| 20 20 74 68 61 74 20 77 | 61 6e 74 20 74 6f 20 62 |  that w|ant to b|
|00000a80| 65 20 69 6e 76 69 73 69 | 62 6c 65 20 2d 2d 20 69 |e invisi|ble -- i|
|00000a90| 2e 65 2e 2c 0a 25 20 20 | 20 20 20 6e 6f 74 20 6c |.e.,.%  |   not l|
|00000aa0| 65 61 76 65 20 61 6e 79 | 20 65 78 74 72 61 20 73 |eave any| extra s|
|00000ab0| 70 61 63 65 20 77 68 65 | 6e 20 75 73 65 64 20 69 |pace whe|n used i|
|00000ac0| 6e 20 74 68 65 20 6d 69 | 64 64 6c 65 20 6f 66 20 |n the mi|ddle of |
|00000ad0| 74 65 78 74 2e 20 20 53 | 75 63 68 0a 25 20 20 20 |text.  S|uch.%   |
|00000ae0| 20 20 61 20 6d 61 63 72 | 6f 20 73 68 6f 75 6c 64 |  a macr|o should|
|00000af0| 20 62 65 67 69 6e 20 77 | 69 74 68 20 5c 40 62 73 | begin w|ith \@bs|
|00000b00| 70 68 61 63 6b 20 61 6e | 64 20 65 6e 64 20 77 69 |phack an|d end wi|
|00000b10| 74 68 20 5c 40 65 73 70 | 68 61 63 6b 0a 25 20 20 |th \@esp|hack.%  |
|00000b20| 20 20 20 54 68 65 20 6d | 61 63 72 6f 20 69 6e 20 |   The m|acro in |
|00000b30| 71 75 65 73 74 69 6f 6e | 20 73 68 6f 75 6c 64 20 |question| should |
|00000b40| 6e 6f 74 20 63 72 65 61 | 74 65 20 61 6e 79 20 74 |not crea|te any t|
|00000b50| 65 78 74 2c 20 6e 6f 72 | 20 63 68 61 6e 67 65 20 |ext, nor| change |
|00000b60| 74 68 65 0a 25 20 20 20 | 20 20 6d 6f 64 65 2e 0a |the.%   |  mode..|
|00000b70| 25 0a 25 20 5c 40 62 73 | 70 68 61 63 6b 20 3d 3d |%.% \@bs|phack ==|
|00000b80| 0a 25 20 20 42 45 47 49 | 4e 0a 25 20 20 20 20 5c |.%  BEGI|N.%    \|
|00000b90| 64 69 6d 65 6e 5c 40 73 | 61 76 73 6b 20 3a 3d 20 |dimen\@s|avsk := |
|00000ba0| 5c 6c 61 73 74 73 6b 69 | 70 0a 25 20 20 20 20 69 |\lastski|p.%    i|
|00000bb0| 66 20 20 68 6d 6f 64 65 | 20 20 74 68 65 6e 20 20 |f  hmode|  then  |
|00000bc0| 5c 40 73 61 76 73 66 20 | 3a 3d 20 5c 73 70 61 63 |\@savsf |:= \spac|
|00000bd0| 65 66 61 63 74 6f 72 20 | 20 66 69 0a 25 20 20 45 |efactor | fi.%  E|
|00000be0| 4e 44 0a 25 0a 25 20 5c | 40 65 73 70 68 61 63 6b |ND.%.% \|@esphack|
|00000bf0| 20 3d 3d 0a 25 20 20 42 | 45 47 49 4e 0a 25 20 20 | ==.%  B|EGIN.%  |
|00000c00| 20 20 69 66 20 20 68 6d | 6f 64 65 0a 25 20 20 20 |  if  hm|ode.%   |
|00000c10| 20 20 20 74 68 65 6e 20 | 20 5c 73 70 61 63 65 66 |   then | \spacef|
|00000c20| 61 63 74 6f 72 20 3a 3d | 20 5c 40 73 61 76 73 66 |actor :=| \@savsf|
|00000c30| 0a 25 20 20 20 20 20 20 | 20 20 20 20 20 20 69 66 |.%      |      if|
|00000c40| 20 5c 64 69 6d 65 6e 5c | 40 73 61 76 73 6b 20 3e | \dimen\|@savsk >|
|00000c50| 20 30 70 74 20 20 74 68 | 65 6e 20 20 5c 69 67 6e | 0pt  th|en  \ign|
|00000c60| 6f 72 65 73 70 61 63 65 | 73 20 20 0a 25 20 20 20 |orespace|s  .%   |
|00000c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c90| 20 20 20 20 20 20 20 5c | 67 6c 6f 62 61 6c 5c 69 |       \|global\i|
|00000ca0| 67 6e 6f 72 65 74 72 75 | 65 20 20 20 66 69 0a 25 |gnoretru|e   fi.%|
|00000cb0| 20 20 20 20 66 69 0a 25 | 20 20 45 4e 44 0a 25 0a |    fi.%|  END.%.|
|00000cc0| 0a 5c 6e 65 77 64 69 6d | 65 6e 5c 40 73 61 76 73 |.\newdim|en\@savs|
|00000cd0| 6b 0a 5c 6e 65 77 63 6f | 75 6e 74 5c 40 73 61 76 |k.\newco|unt\@sav|
|00000ce0| 73 66 0a 0a 5c 64 65 66 | 5c 40 62 73 70 68 61 63 |sf..\def|\@bsphac|
|00000cf0| 6b 7b 5c 40 73 61 76 73 | 6b 5c 6c 61 73 74 73 6b |k{\@savs|k\lastsk|
|00000d00| 69 70 20 0a 20 20 20 20 | 5c 69 66 68 6d 6f 64 65 |ip .    |\ifhmode|
|00000d10| 5c 40 73 61 76 73 66 5c | 73 70 61 63 65 66 61 63 |\@savsf\|spacefac|
|00000d20| 74 6f 72 5c 66 69 7d 0a | 0a 5c 64 65 66 5c 40 65 |tor\fi}.|.\def\@e|
|00000d30| 73 70 68 61 63 6b 7b 5c | 72 65 6c 61 78 5c 69 66 |sphack{\|relax\if|
|00000d40| 68 6d 6f 64 65 5c 73 70 | 61 63 65 66 61 63 74 6f |hmode\sp|acefacto|
|00000d50| 72 5c 40 73 61 76 73 66 | 0a 20 20 20 20 20 7b 7d |r\@savsf|.     {}|
|00000d60| 5c 69 66 64 69 6d 20 5c | 40 73 61 76 73 6b 20 3e |\ifdim \|@savsk >|
|00000d70| 5c 7a 40 20 5c 67 6c 6f | 62 61 6c 5c 69 67 6e 6f |\z@ \glo|bal\igno|
|00000d80| 72 65 74 72 75 65 20 5c | 69 67 6e 6f 72 65 73 70 |retrue \|ignoresp|
|00000d90| 61 63 65 73 20 0a 20 20 | 5c 66 69 20 5c 66 69 7d |aces .  |\fi \fi}|
|00000da0| 0a 0a 25 20 54 68 65 20 | 63 6f 6d 6d 61 6e 64 20 |..% The |command |
|00000db0| 5c 40 73 61 6e 69 74 69 | 7a 65 20 63 68 61 6e 67 |\@saniti|ze chang|
|00000dc0| 65 73 20 74 68 65 20 63 | 61 74 63 6f 64 65 20 6f |es the c|atcode o|
|00000dd0| 66 20 61 6c 6c 20 73 70 | 65 63 69 61 6c 20 63 68 |f all sp|ecial ch|
|00000de0| 61 72 61 63 74 65 72 73 | 0a 25 20 65 78 63 65 70 |aracters|.% excep|
|00000df0| 74 20 66 6f 72 20 62 72 | 61 63 65 73 20 74 6f 20 |t for br|aces to |
|00000e00| 27 6f 74 68 65 72 27 2e | 20 20 49 74 20 63 61 6e |'other'.|  It can|
|00000e10| 20 62 65 20 75 73 65 64 | 20 66 6f 72 20 63 6f 6d | be used| for com|
|00000e20| 6d 61 6e 64 73 20 6c 69 | 6b 65 0a 25 20 5c 69 6e |mands li|ke.% \in|
|00000e30| 64 65 78 20 74 68 61 74 | 20 77 61 6e 74 20 74 6f |dex that| want to|
|00000e40| 20 77 72 69 74 65 20 74 | 68 65 69 72 20 61 72 67 | write t|heir arg|
|00000e50| 75 6d 65 6e 74 73 20 76 | 65 72 62 61 74 69 6d 2e |uments v|erbatim.|
|00000e60| 20 20 4e 65 65 64 6c 65 | 73 73 20 74 6f 0a 25 20 |  Needle|ss to.% |
|00000e70| 73 61 79 2c 20 74 68 69 | 73 20 63 6f 6d 6d 61 6e |say, thi|s comman|
|00000e80| 64 20 73 68 6f 75 6c 64 | 20 6f 6e 6c 79 20 62 65 |d should| only be|
|00000e90| 20 65 78 65 63 75 74 65 | 64 20 77 69 74 68 69 6e | execute|d within|
|00000ea0| 20 61 20 67 72 6f 75 70 | 2c 20 6f 72 20 63 68 61 | a group|, or cha|
|00000eb0| 6f 73 0a 25 20 77 69 6c | 6c 20 65 6e 73 75 65 2e |os.% wil|l ensue.|
|00000ec0| 0a 0a 5c 64 65 66 5c 40 | 73 61 6e 69 74 69 7a 65 |..\def\@|sanitize|
|00000ed0| 7b 5c 40 6d 61 6b 65 6f | 74 68 65 72 5c 20 5c 40 |{\@makeo|ther\ \@|
|00000ee0| 6d 61 6b 65 6f 74 68 65 | 72 5c 5c 5c 40 6d 61 6b |makeothe|r\\\@mak|
|00000ef0| 65 6f 74 68 65 72 5c 24 | 5c 40 6d 61 6b 65 6f 74 |eother\$|\@makeot|
|00000f00| 68 65 72 5c 26 25 0a 5c | 40 6d 61 6b 65 6f 74 68 |her\&%.\|@makeoth|
|00000f10| 65 72 5c 23 5c 40 6d 61 | 6b 65 6f 74 68 65 72 5c |er\#\@ma|keother\|
|00000f20| 5e 5c 40 6d 61 6b 65 6f | 74 68 65 72 5c 5e 5e 4b |^\@makeo|ther\^^K|
|00000f30| 5c 40 6d 61 6b 65 6f 74 | 68 65 72 5c 5f 5c 40 6d |\@makeot|her\_\@m|
|00000f40| 61 6b 65 6f 74 68 65 72 | 5c 5e 5e 41 25 0a 5c 40 |akeother|\^^A%.\@|
|00000f50| 6d 61 6b 65 6f 74 68 65 | 72 5c 25 5c 40 6d 61 6b |makeothe|r\%\@mak|
|00000f60| 65 6f 74 68 65 72 5c 7e | 7d 0a 0a 25 20 20 20 20 |eother\~|}..%    |
|00000f70| 20 20 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |   *****|********|
|00000f80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0a 25 20 20 20 |********|***.%   |
|00000fa0| 20 20 20 20 2a 20 20 20 | 20 20 20 20 20 20 20 20 |    *   |        |
|00000fb0| 20 49 4e 44 45 58 20 43 | 4f 4d 4d 41 4e 44 53 20 | INDEX C|OMMANDS |
|00000fc0| 20 20 20 20 20 20 20 20 | 20 20 20 2a 0a 25 20 20 |        |   *.%  |
|00000fd0| 20 20 20 20 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |     ***|********|
|00000fe0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ff0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 25 0a |********|*****.%.|
|00001000| 25 20 5c 6d 61 6b 65 69 | 6e 64 65 78 20 3d 3d 0a |% \makei|ndex ==.|
|00001010| 25 20 20 20 42 45 47 49 | 4e 0a 25 20 20 20 20 69 |%   BEGI|N.%    i|
|00001020| 66 20 5c 40 66 69 6c 65 | 73 77 20 3d 20 54 0a 25 |f \@file|sw = T.%|
|00001030| 20 20 20 20 20 20 74 68 | 65 6e 20 20 6f 70 65 6e |      th|en  open|
|00001040| 20 66 69 6c 65 20 5c 6a | 6f 62 6e 61 6d 65 2e 49 | file \j|obname.I|
|00001050| 44 58 20 61 73 20 5c 69 | 6e 64 65 78 66 69 6c 65 |DX as \i|ndexfile|
|00001060| 0a 25 20 20 20 20 20 20 | 20 20 20 20 20 20 20 5c |.%      |       \|
|00001070| 69 6e 64 65 78 20 3d 3d | 20 20 42 45 47 49 4e 20 |index ==|  BEGIN |
|00001080| 5c 40 62 73 70 68 61 63 | 6b 20 0a 25 20 20 20 20 |\@bsphac|k .%    |
|00001090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000010a0| 20 20 20 20 20 20 20 20 | 20 20 5c 62 65 67 69 6e |        |  \begin|
|000010b0| 67 72 6f 75 70 0a 25 20 | 20 20 20 20 20 20 20 20 |group.% |        |
|000010c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000010d0| 20 20 20 20 20 20 20 20 | 20 72 65 2d 5c 63 61 74 |        | re-\cat|
|000010e0| 63 6f 64 65 20 73 70 65 | 63 69 61 6c 20 63 68 61 |code spe|cial cha|
|000010f0| 72 61 63 74 65 72 73 20 | 74 6f 20 27 6f 74 68 65 |racters |to 'othe|
|00001100| 72 27 0a 25 20 20 20 20 | 20 20 20 20 20 20 20 20 |r'.%    |        |
|00001110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001120| 20 20 20 20 20 20 5c 77 | 72 69 6e 64 65 78 0a 25 |      \w|rindex.%|
|00001130| 20 20 20 20 66 69 0a 25 | 20 20 20 45 4e 44 20 20 |    fi.%|   END  |
|00001140| 0a 25 0a 25 20 20 5c 77 | 72 69 6e 64 65 78 7b 49 |.%.%  \w|rindex{I|
|00001150| 54 45 4d 7d 20 3d 3d 0a | 25 20 20 20 20 42 45 47 |TEM} ==.|%    BEG|
|00001160| 49 4e 0a 25 20 20 20 20 | 20 20 20 20 77 72 69 74 |IN.%    |    writ|
|00001170| 65 20 6f 66 20 7b 5c 69 | 6e 64 65 78 65 6e 74 72 |e of {\i|ndexentr|
|00001180| 79 7b 49 54 45 4d 7d 7b | 70 61 67 65 20 6e 75 6d |y{ITEM}{|page num|
|00001190| 62 65 72 7d 7d 0a 25 20 | 20 20 20 20 20 5c 65 6e |ber}}.% |     \en|
|000011a0| 64 67 72 6f 75 70 0a 25 | 20 20 20 20 20 20 5c 40 |dgroup.%|      \@|
|000011b0| 65 73 70 68 61 63 6b 0a | 25 20 20 20 20 45 4e 44 |esphack.|%    END|
|000011c0| 0a 0a 25 20 20 49 4e 49 | 54 49 41 4c 49 5a 41 54 |..%  INI|TIALIZAT|
|000011d0| 49 4f 4e 3a 0a 25 0a 25 | 20 20 5c 69 6e 64 65 78 |ION:.%.%|  \index|
|000011e0| 20 3d 3d 20 42 45 47 49 | 4e 20 5c 40 62 73 70 68 | == BEGI|N \@bsph|
|000011f0| 61 63 6b 20 0a 25 20 20 | 20 20 20 20 20 20 20 20 |ack .%  |        |
|00001200| 20 20 20 20 20 20 20 20 | 5c 62 65 67 69 6e 67 72 |        |\begingr|
|00001210| 6f 75 70 0a 25 20 20 20 | 20 20 20 20 20 20 20 20 |oup.%   |        |
|00001220| 20 20 20 20 20 20 20 20 | 20 20 72 65 2d 5c 63 61 |        |  re-\ca|
|00001230| 74 63 6f 64 65 20 73 70 | 65 63 69 61 6c 20 63 68 |tcode sp|ecial ch|
|00001240| 61 72 61 63 74 65 72 73 | 20 28 69 6e 20 63 61 73 |aracters| (in cas|
|00001250| 65 20 27 25 27 20 74 68 | 65 72 65 29 0a 25 20 20 |e '%' th|ere).%  |
|00001260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001270| 20 20 20 5c 69 6e 64 65 | 78 0a 25 20 20 20 20 20 |   \inde|x.%     |
|00001280| 20 20 20 20 20 20 20 45 | 4e 44 0a 25 20 20 20 20 |       E|ND.%    |
|00001290| 20 20 20 20 20 20 20 20 | 20 20 0a 25 20 20 5c 69 |        |  .%  \i|
|000012a0| 6e 64 65 78 7b 49 54 45 | 4d 7d 20 3d 3d 20 42 45 |ndex{ITE|M} == BE|
|000012b0| 47 49 4e 20 5c 65 6e 64 | 67 72 6f 75 70 20 5c 40 |GIN \end|group \@|
|000012c0| 65 73 70 68 61 63 6b 20 | 45 4e 44 0a 25 0a 5c 64 |esphack |END.%.\d|
|000012d0| 65 66 5c 6d 61 6b 65 69 | 6e 64 65 78 7b 5c 69 66 |ef\makei|ndex{\if|
|000012e0| 40 66 69 6c 65 73 77 20 | 5c 6e 65 77 77 72 69 74 |@filesw |\newwrit|
|000012f0| 65 5c 40 69 6e 64 65 78 | 66 69 6c 65 0a 20 20 5c |e\@index|file.  \|
|00001300| 69 6d 6d 65 64 69 61 74 | 65 5c 6f 70 65 6e 6f 75 |immediat|e\openou|
|00001310| 74 5c 40 69 6e 64 65 78 | 66 69 6c 65 3d 5c 6a 6f |t\@index|file=\jo|
|00001320| 62 6e 61 6d 65 2e 69 64 | 78 0a 20 20 5c 64 65 66 |bname.id|x.  \def|
|00001330| 5c 69 6e 64 65 78 7b 5c | 40 62 73 70 68 61 63 6b |\index{\|@bsphack|
|00001340| 5c 62 65 67 69 6e 67 72 | 6f 75 70 5c 40 73 61 6e |\begingr|oup\@san|
|00001350| 69 74 69 7a 65 5c 40 77 | 72 69 6e 64 65 78 5c 40 |itize\@w|rindex\@|
|00001360| 69 6e 64 65 78 66 69 6c | 65 7d 0a 20 20 5c 64 65 |indexfil|e}.  \de|
|00001370| 66 5c 62 66 69 6e 64 65 | 78 7b 5c 40 62 73 70 68 |f\bfinde|x{\@bsph|
|00001380| 61 63 6b 5c 62 65 67 69 | 6e 67 72 6f 75 70 5c 40 |ack\begi|ngroup\@|
|00001390| 73 61 6e 69 74 69 7a 65 | 5c 40 62 66 77 72 69 6e |sanitize|\@bfwrin|
|000013a0| 64 65 78 5c 40 69 6e 64 | 65 78 66 69 6c 65 7d 0a |dex\@ind|exfile}.|
|000013b0| 20 20 5c 64 65 66 5c 69 | 74 69 6e 64 65 78 7b 5c |  \def\i|tindex{\|
|000013c0| 40 62 73 70 68 61 63 6b | 5c 62 65 67 69 6e 67 72 |@bsphack|\begingr|
|000013d0| 6f 75 70 5c 40 73 61 6e | 69 74 69 7a 65 5c 40 69 |oup\@san|itize\@i|
|000013e0| 74 77 72 69 6e 64 65 78 | 5c 40 69 6e 64 65 78 66 |twrindex|\@indexf|
|000013f0| 69 6c 65 7d 0a 20 20 5c | 64 65 66 5c 73 6c 69 6e |ile}.  \|def\slin|
|00001400| 64 65 78 7b 5c 40 62 73 | 70 68 61 63 6b 5c 62 65 |dex{\@bs|phack\be|
|00001410| 67 69 6e 67 72 6f 75 70 | 5c 40 73 61 6e 69 74 69 |gingroup|\@saniti|
|00001420| 7a 65 5c 40 73 6c 77 72 | 69 6e 64 65 78 5c 40 69 |ze\@slwr|index\@i|
|00001430| 6e 64 65 78 66 69 6c 65 | 7d 0a 20 20 5c 64 65 66 |ndexfile|}.  \def|
|00001440| 5c 75 6c 69 6e 64 65 78 | 7b 5c 40 62 73 70 68 61 |\ulindex|{\@bspha|
|00001450| 63 6b 5c 62 65 67 69 6e | 67 72 6f 75 70 5c 40 73 |ck\begin|group\@s|
|00001460| 61 6e 69 74 69 7a 65 5c | 40 75 6c 77 72 69 6e 64 |anitize\|@ulwrind|
|00001470| 65 78 5c 40 69 6e 64 65 | 78 66 69 6c 65 7d 0a 20 |ex\@inde|xfile}. |
|00001480| 20 5c 74 79 70 65 6f 75 | 74 7b 57 72 69 74 69 6e | \typeou|t{Writin|
|00001490| 67 20 69 6e 64 65 78 20 | 66 69 6c 65 20 5c 6a 6f |g index |file \jo|
|000014a0| 62 6e 61 6d 65 2e 69 64 | 78 20 7d 5c 66 69 7d 0a |bname.id|x }\fi}.|
|000014b0| 0a 5c 64 65 66 5c 40 77 | 72 69 6e 64 65 78 23 31 |.\def\@w|rindex#1|
|000014c0| 23 32 7b 5c 6c 65 74 5c | 74 68 65 70 61 67 65 5c |#2{\let\|thepage\|
|000014d0| 72 65 6c 61 78 0a 20 20 | 20 5c 78 64 65 66 5c 67 |relax.  | \xdef\g|
|000014e0| 74 65 6d 70 61 7b 5c 77 | 72 69 74 65 23 31 7b 5c |tempa{\w|rite#1{\|
|000014f0| 73 74 72 69 6e 67 0a 20 | 20 20 20 20 20 5c 69 6e |string. |     \in|
|00001500| 64 65 78 65 6e 74 72 79 | 7b 23 32 7d 7b 5c 74 68 |dexentry|{#2}{\th|
|00001510| 65 70 61 67 65 7d 7d 7d | 5c 65 6e 64 67 72 6f 75 |epage}}}|\endgrou|
|00001520| 70 5c 67 74 65 6d 70 61 | 0a 20 20 20 5c 69 66 40 |p\gtempa|.   \if@|
|00001530| 6e 6f 62 72 65 61 6b 20 | 5c 69 66 76 6d 6f 64 65 |nobreak |\ifvmode|
|00001540| 5c 40 6e 6f 62 72 65 61 | 6b 5c 66 69 5c 66 69 5c |\@nobrea|k\fi\fi\|
|00001550| 40 65 73 70 68 61 63 6b | 7d 0a 5c 64 65 66 5c 40 |@esphack|}.\def\@|
|00001560| 62 66 77 72 69 6e 64 65 | 78 23 31 23 32 7b 5c 6c |bfwrinde|x#1#2{\l|
|00001570| 65 74 5c 74 68 65 70 61 | 67 65 5c 72 65 6c 61 78 |et\thepa|ge\relax|
|00001580| 0a 20 20 20 5c 78 64 65 | 66 5c 67 74 65 6d 70 61 |.   \xde|f\gtempa|
|00001590| 7b 5c 77 72 69 74 65 23 | 31 7b 5c 73 74 72 69 6e |{\write#|1{\strin|
|000015a0| 67 0a 20 20 20 20 20 20 | 5c 69 6e 64 65 78 65 6e |g.      |\indexen|
|000015b0| 74 72 79 7b 23 32 7d 7b | 7b 5c 73 74 72 69 6e 67 |try{#2}{|{\string|
|000015c0| 5c 62 66 20 5c 73 70 61 | 63 65 5c 74 68 65 70 61 |\bf \spa|ce\thepa|
|000015d0| 67 65 7d 7d 7d 7d 5c 65 | 6e 64 67 72 6f 75 70 5c |ge}}}}\e|ndgroup\|
|000015e0| 67 74 65 6d 70 61 0a 20 | 20 20 5c 69 66 40 6e 6f |gtempa. |  \if@no|
|000015f0| 62 72 65 61 6b 20 5c 69 | 66 76 6d 6f 64 65 5c 40 |break \i|fvmode\@|
|00001600| 6e 6f 62 72 65 61 6b 5c | 66 69 5c 66 69 5c 40 65 |nobreak\|fi\fi\@e|
|00001610| 73 70 68 61 63 6b 7d 0a | 5c 64 65 66 5c 40 69 74 |sphack}.|\def\@it|
|00001620| 77 72 69 6e 64 65 78 23 | 31 23 32 7b 5c 6c 65 74 |wrindex#|1#2{\let|
|00001630| 5c 74 68 65 70 61 67 65 | 5c 72 65 6c 61 78 0a 20 |\thepage|\relax. |
|00001640| 20 20 5c 78 64 65 66 5c | 67 74 65 6d 70 61 7b 5c |  \xdef\|gtempa{\|
|00001650| 77 72 69 74 65 23 31 7b | 5c 73 74 72 69 6e 67 0a |write#1{|\string.|
|00001660| 20 20 20 20 20 20 5c 69 | 6e 64 65 78 65 6e 74 72 |      \i|ndexentr|
|00001670| 79 7b 23 32 7d 7b 7b 5c | 73 74 72 69 6e 67 5c 73 |y{#2}{{\|string\s|
|00001680| 6c 20 5c 73 70 61 63 65 | 5c 74 68 65 70 61 67 65 |l \space|\thepage|
|00001690| 5c 73 74 72 69 6e 67 5c | 2f 7d 7d 7d 7d 5c 65 6e |\string\|/}}}}\en|
|000016a0| 64 67 72 6f 75 70 5c 67 | 74 65 6d 70 61 0a 20 20 |dgroup\g|tempa.  |
|000016b0| 20 5c 69 66 40 6e 6f 62 | 72 65 61 6b 20 5c 69 66 | \if@nob|reak \if|
|000016c0| 76 6d 6f 64 65 5c 40 6e | 6f 62 72 65 61 6b 5c 66 |vmode\@n|obreak\f|
|000016d0| 69 5c 66 69 5c 40 65 73 | 70 68 61 63 6b 7d 0a 5c |i\fi\@es|phack}.\|
|000016e0| 64 65 66 5c 40 73 6c 77 | 72 69 6e 64 65 78 23 31 |def\@slw|rindex#1|
|000016f0| 23 32 7b 5c 6c 65 74 5c | 74 68 65 70 61 67 65 5c |#2{\let\|thepage\|
|00001700| 72 65 6c 61 78 0a 20 20 | 20 5c 78 64 65 66 5c 67 |relax.  | \xdef\g|
|00001710| 74 65 6d 70 61 7b 5c 77 | 72 69 74 65 23 31 7b 5c |tempa{\w|rite#1{\|
|00001720| 73 74 72 69 6e 67 0a 20 | 20 20 20 20 20 5c 69 6e |string. |     \in|
|00001730| 64 65 78 65 6e 74 72 79 | 7b 23 32 7d 7b 7b 5c 73 |dexentry|{#2}{{\s|
|00001740| 74 72 69 6e 67 5c 73 6c | 20 5c 73 70 61 63 65 5c |tring\sl| \space\|
|00001750| 74 68 65 70 61 67 65 5c | 73 74 72 69 6e 67 5c 2f |thepage\|string\/|
|00001760| 7d 7d 7d 7d 5c 65 6e 64 | 67 72 6f 75 70 5c 67 74 |}}}}\end|group\gt|
|00001770| 65 6d 70 61 0a 20 20 20 | 5c 69 66 40 6e 6f 62 72 |empa.   |\if@nobr|
|00001780| 65 61 6b 20 5c 69 66 76 | 6d 6f 64 65 5c 40 6e 6f |eak \ifv|mode\@no|
|00001790| 62 72 65 61 6b 5c 66 69 | 5c 66 69 5c 40 65 73 70 |break\fi|\fi\@esp|
|000017a0| 68 61 63 6b 7d 0a 5c 64 | 65 66 5c 40 75 6c 77 72 |hack}.\d|ef\@ulwr|
|000017b0| 69 6e 64 65 78 23 31 23 | 32 7b 5c 6c 65 74 5c 74 |index#1#|2{\let\t|
|000017c0| 68 65 70 61 67 65 5c 72 | 65 6c 61 78 0a 20 20 20 |hepage\r|elax.   |
|000017d0| 5c 78 64 65 66 5c 67 74 | 65 6d 70 61 7b 5c 77 72 |\xdef\gt|empa{\wr|
|000017e0| 69 74 65 23 31 7b 5c 73 | 74 72 69 6e 67 0a 20 20 |ite#1{\s|tring.  |
|000017f0| 20 20 20 20 5c 69 6e 64 | 65 78 65 6e 74 72 79 7b |    \ind|exentry{|
|00001800| 23 32 7d 7b 5c 73 74 72 | 69 6e 67 5c 75 6c 7b 5c |#2}{\str|ing\ul{\|
|00001810| 74 68 65 70 61 67 65 7d | 7d 7d 7d 5c 65 6e 64 67 |thepage}|}}}\endg|
|00001820| 72 6f 75 70 5c 67 74 65 | 6d 70 61 0a 20 20 20 5c |roup\gte|mpa.   \|
|00001830| 69 66 40 6e 6f 62 72 65 | 61 6b 20 5c 69 66 76 6d |if@nobre|ak \ifvm|
|00001840| 6f 64 65 5c 40 6e 6f 62 | 72 65 61 6b 5c 66 69 5c |ode\@nob|reak\fi\|
|00001850| 66 69 5c 40 65 73 70 68 | 61 63 6b 7d 0a 0a 5c 64 |fi\@esph|ack}..\d|
|00001860| 65 66 5c 75 6c 23 31 7b | 24 5c 75 6e 64 65 72 6c |ef\ul#1{|$\underl|
|00001870| 69 6e 65 7b 5c 72 6d 20 | 23 31 7d 24 7d 0a 5c 64 |ine{\rm |#1}$}.\d|
|00001880| 65 66 5c 69 6e 64 65 78 | 7b 5c 40 62 73 70 68 61 |ef\index|{\@bspha|
|00001890| 63 6b 5c 62 65 67 69 6e | 67 72 6f 75 70 5c 40 73 |ck\begin|group\@s|
|000018a0| 61 6e 69 74 69 7a 65 5c | 40 69 6e 64 65 78 7d 0a |anitize\|@index}.|
|000018b0| 5c 64 65 66 5c 62 66 69 | 6e 64 65 78 7b 5c 40 62 |\def\bfi|ndex{\@b|
|000018c0| 73 70 68 61 63 6b 5c 62 | 65 67 69 6e 67 72 6f 75 |sphack\b|egingrou|
|000018d0| 70 5c 40 73 61 6e 69 74 | 69 7a 65 5c 40 69 6e 64 |p\@sanit|ize\@ind|
|000018e0| 65 78 7d 0a 5c 64 65 66 | 5c 69 74 69 6e 64 65 78 |ex}.\def|\itindex|
|000018f0| 7b 5c 40 62 73 70 68 61 | 63 6b 5c 62 65 67 69 6e |{\@bspha|ck\begin|
|00001900| 67 72 6f 75 70 5c 40 73 | 61 6e 69 74 69 7a 65 5c |group\@s|anitize\|
|00001910| 40 69 6e 64 65 78 7d 0a | 5c 64 65 66 5c 73 6c 69 |@index}.|\def\sli|
|00001920| 6e 64 65 78 7b 5c 40 62 | 73 70 68 61 63 6b 5c 62 |ndex{\@b|sphack\b|
|00001930| 65 67 69 6e 67 72 6f 75 | 70 5c 40 73 61 6e 69 74 |egingrou|p\@sanit|
|00001940| 69 7a 65 5c 40 69 6e 64 | 65 78 7d 0a 5c 64 65 66 |ize\@ind|ex}.\def|
|00001950| 5c 75 6c 69 6e 64 65 78 | 7b 5c 40 62 73 70 68 61 |\ulindex|{\@bspha|
|00001960| 63 6b 5c 62 65 67 69 6e | 67 72 6f 75 70 5c 40 73 |ck\begin|group\@s|
|00001970| 61 6e 69 74 69 7a 65 5c | 40 69 6e 64 65 78 7d 0a |anitize\|@index}.|
|00001980| 0a 5c 64 65 66 5c 40 69 | 6e 64 65 78 23 31 7b 5c |.\def\@i|ndex#1{\|
|00001990| 65 6e 64 67 72 6f 75 70 | 5c 40 65 73 70 68 61 63 |endgroup|\@esphac|
|000019a0| 6b 7d 0a 0a 5c 64 65 66 | 5c 6d 61 6b 65 67 6c 6f |k}..\def|\makeglo|
|000019b0| 73 73 61 72 79 7b 5c 69 | 66 40 40 66 69 6c 65 73 |ssary{\i|f@@files|
|000019c0| 77 20 5c 6e 65 77 77 72 | 69 74 65 5c 40 67 6c 6f |w \newwr|ite\@glo|
|000019d0| 73 73 61 72 79 66 69 6c | 65 0a 20 20 5c 69 6d 6d |ssaryfil|e.  \imm|
|000019e0| 65 64 69 61 74 65 5c 6f | 70 65 6e 6f 75 74 5c 40 |ediate\o|penout\@|
|000019f0| 67 6c 6f 73 73 61 72 79 | 66 69 6c 65 3d 5c 6a 6f |glossary|file=\jo|
|00001a00| 62 6e 61 6d 65 2e 67 6c | 6f 0a 20 20 5c 64 65 66 |bname.gl|o.  \def|
|00001a10| 5c 67 6c 6f 73 73 61 72 | 79 7b 5c 40 62 73 70 68 |\glossar|y{\@bsph|
|00001a20| 61 63 6b 5c 62 65 67 69 | 6e 67 72 6f 75 70 5c 40 |ack\begi|ngroup\@|
|00001a30| 73 61 6e 69 74 69 7a 65 | 5c 40 77 72 69 6e 64 65 |sanitize|\@wrinde|
|00001a40| 78 5c 40 67 6c 6f 73 73 | 61 72 79 66 69 6c 65 7d |x\@gloss|aryfile}|
|00001a50| 5c 74 79 70 65 6f 75 74 | 0a 20 20 7b 57 72 69 74 |\typeout|.  {Writ|
|00001a60| 69 6e 67 20 67 6c 6f 73 | 73 61 72 79 20 66 69 6c |ing glos|sary fil|
|00001a70| 65 20 5c 6a 6f 62 6e 61 | 6d 65 2e 67 6c 6f 20 7d |e \jobna|me.glo }|
|00001a80| 5c 66 69 7d 0a 0a 5c 64 | 65 66 5c 67 6c 6f 73 73 |\fi}..\d|ef\gloss|
|00001a90| 61 72 79 7b 5c 40 62 73 | 70 68 61 63 6b 5c 62 65 |ary{\@bs|phack\be|
|00001aa0| 67 69 6e 67 72 6f 75 70 | 5c 40 73 61 6e 69 74 69 |gingroup|\@saniti|
|00001ab0| 7a 65 5c 69 6e 64 65 78 | 7d 0a 0a 5c 6e 65 77 64 |ze\index|}..\newd|
|00001ac0| 69 6d 65 6e 5c 70 61 67 | 65 77 69 64 74 68 0a 5c |imen\pag|ewidth.\|
|00001ad0| 70 61 67 65 77 69 64 74 | 68 3d 5c 68 73 69 7a 65 |pagewidt|h=\hsize|
|00001ae0| 0a 5c 6e 65 77 62 6f 78 | 5c 70 61 72 74 69 61 6c |.\newbox|\partial|
|00001af0| 70 61 67 65 0a 5c 64 65 | 66 5c 62 65 67 69 6e 64 |page.\de|f\begind|
|00001b00| 6f 75 62 6c 65 63 6f 6c | 75 6d 6e 73 7b 5c 62 65 |oublecol|umns{\be|
|00001b10| 67 69 6e 67 72 6f 75 70 | 0a 20 20 5c 6f 75 74 70 |gingroup|.  \outp|
|00001b20| 75 74 3d 7b 5c 67 6c 6f | 62 61 6c 5c 73 65 74 62 |ut={\glo|bal\setb|
|00001b30| 6f 78 5c 70 61 72 74 69 | 61 6c 70 61 67 65 3d 5c |ox\parti|alpage=\|
|00001b40| 76 62 6f 78 7b 5c 75 6e | 76 62 6f 78 32 35 35 5c |vbox{\un|vbox255\|
|00001b50| 62 69 67 73 6b 69 70 7d | 7d 5c 65 6a 65 63 74 0a |bigskip}|}\eject.|
|00001b60| 20 20 5c 6f 75 74 70 75 | 74 3d 7b 5c 64 6f 75 62 |  \outpu|t={\doub|
|00001b70| 6c 65 63 6f 6c 75 6d 6e | 6f 75 74 7d 20 5c 68 73 |lecolumn|out} \hs|
|00001b80| 69 7a 65 3d 31 34 70 63 | 20 5c 76 73 69 7a 65 3d |ize=14pc| \vsize=|
|00001b90| 38 39 70 63 0a 20 20 5c | 6c 65 74 5c 69 74 65 6d |89pc.  \|let\item|
|00001ba0| 5c 40 69 64 78 69 74 65 | 6d 7d 0a 5c 64 65 66 5c |\@idxite|m}.\def\|
|00001bb0| 65 6e 64 64 6f 75 62 6c | 65 63 6f 6c 75 6d 6e 73 |enddoubl|ecolumns|
|00001bc0| 7b 5c 6f 75 74 70 75 74 | 3d 7b 5c 62 61 6c 61 6e |{\output|={\balan|
|00001bd0| 63 65 63 6f 6c 75 6d 6e | 73 7d 5c 65 6a 65 63 74 |cecolumn|s}\eject|
|00001be0| 0a 20 20 5c 65 6e 64 67 | 72 6f 75 70 20 5c 70 61 |.  \endg|roup \pa|
|00001bf0| 67 65 67 6f 61 6c 3d 5c | 76 73 69 7a 65 7d 0a 5c |gegoal=\|vsize}.\|
|00001c00| 64 65 66 5c 64 6f 75 62 | 6c 65 63 6f 6c 75 6d 6e |def\doub|lecolumn|
|00001c10| 6f 75 74 7b 5c 73 70 6c | 69 74 74 6f 70 73 6b 69 |out{\spl|ittopski|
|00001c20| 70 3d 5c 74 6f 70 73 6b | 69 70 20 5c 73 70 6c 69 |p=\topsk|ip \spli|
|00001c30| 74 6d 61 78 64 65 70 74 | 68 3d 5c 6d 61 78 64 65 |tmaxdept|h=\maxde|
|00001c40| 70 74 68 0a 20 20 5c 64 | 69 6d 65 6e 40 3d 34 34 |pth.  \d|imen@=44|
|00001c50| 70 63 20 5c 61 64 76 61 | 6e 63 65 5c 64 69 6d 65 |pc \adva|nce\dime|
|00001c60| 6e 40 20 62 79 2d 5c 68 | 74 5c 70 61 72 74 69 61 |n@ by-\h|t\partia|
|00001c70| 6c 70 61 67 65 0a 20 20 | 5c 73 65 74 62 6f 78 30 |lpage.  |\setbox0|
|00001c80| 3d 5c 76 73 70 6c 69 74 | 32 35 35 20 74 6f 5c 64 |=\vsplit|255 to\d|
|00001c90| 69 6d 65 6e 40 20 5c 73 | 65 74 62 6f 78 32 3d 5c |imen@ \s|etbox2=\|
|00001ca0| 76 73 70 6c 69 74 32 35 | 35 20 74 6f 5c 64 69 6d |vsplit25|5 to\dim|
|00001cb0| 65 6e 40 0a 20 20 5c 6f | 6e 65 70 61 67 65 6f 75 |en@.  \o|nepageou|
|00001cc0| 74 5c 70 61 67 65 73 6f | 66 61 72 0a 20 20 5c 75 |t\pageso|far.  \u|
|00001cd0| 6e 76 62 6f 78 32 35 35 | 20 5c 70 65 6e 61 6c 74 |nvbox255| \penalt|
|00001ce0| 79 5c 6f 75 74 70 75 74 | 70 65 6e 61 6c 74 79 7d |y\output|penalty}|
|00001cf0| 0a 5c 64 65 66 5c 70 61 | 67 65 73 6f 66 61 72 7b |.\def\pa|gesofar{|
|00001d00| 5c 75 6e 76 62 6f 78 5c | 70 61 72 74 69 61 6c 70 |\unvbox\|partialp|
|00001d10| 61 67 65 0a 20 20 5c 77 | 64 30 3d 5c 68 73 69 7a |age.  \w|d0=\hsiz|
|00001d20| 65 20 5c 77 64 32 3d 5c | 68 73 69 7a 65 20 5c 68 |e \wd2=\|hsize \h|
|00001d30| 62 6f 78 20 74 6f 5c 70 | 61 67 65 77 69 64 74 68 |box to\p|agewidth|
|00001d40| 7b 5c 62 6f 78 30 5c 68 | 66 69 6c 5c 62 6f 78 32 |{\box0\h|fil\box2|
|00001d50| 7d 7d 0a 5c 64 65 66 5c | 62 61 6c 61 6e 63 65 63 |}}.\def\|balancec|
|00001d60| 6f 6c 75 6d 6e 73 7b 5c | 73 65 74 62 6f 78 30 3d |olumns{\|setbox0=|
|00001d70| 5c 76 62 6f 78 7b 5c 75 | 6e 76 62 6f 78 32 35 35 |\vbox{\u|nvbox255|
|00001d80| 7d 20 5c 64 69 6d 65 6e | 40 3d 5c 68 74 30 0a 20 |} \dimen|@=\ht0. |
|00001d90| 20 5c 61 64 76 61 6e 63 | 65 5c 64 69 6d 65 6e 40 | \advanc|e\dimen@|
|00001da0| 20 62 79 5c 74 6f 70 73 | 6b 69 70 20 5c 61 64 76 | by\tops|kip \adv|
|00001db0| 61 6e 63 65 5c 64 69 6d | 65 6e 40 20 62 79 2d 5c |ance\dim|en@ by-\|
|00001dc0| 62 61 73 65 6c 69 6e 65 | 73 6b 69 70 0a 20 20 5c |baseline|skip.  \|
|00001dd0| 64 69 76 69 64 65 5c 64 | 69 6d 65 6e 40 20 62 79 |divide\d|imen@ by|
|00001de0| 32 20 5c 73 70 6c 69 74 | 74 6f 70 73 6b 69 70 3d |2 \split|topskip=|
|00001df0| 5c 74 6f 70 73 6b 69 70 | 0a 20 20 7b 5c 76 62 61 |\topskip|.  {\vba|
|00001e00| 64 6e 65 73 73 3d 31 30 | 30 30 30 20 5c 6c 6f 6f |dness=10|000 \loo|
|00001e10| 70 20 5c 67 6c 6f 62 61 | 6c 5c 73 65 74 62 6f 78 |p \globa|l\setbox|
|00001e20| 33 3d 5c 63 6f 70 79 30 | 0a 20 20 20 20 5c 67 6c |3=\copy0|.    \gl|
|00001e30| 6f 62 61 6c 5c 73 65 74 | 62 6f 78 31 3d 5c 76 73 |obal\set|box1=\vs|
|00001e40| 70 6c 69 74 33 20 74 6f | 5c 64 69 6d 65 6e 40 0a |plit3 to|\dimen@.|
|00001e50| 20 20 20 20 5c 69 66 64 | 69 6d 5c 68 74 33 3e 5c |    \ifd|im\ht3>\|
|00001e60| 64 69 6d 65 6e 40 20 5c | 67 6c 6f 62 61 6c 5c 61 |dimen@ \|global\a|
|00001e70| 64 76 61 6e 63 65 5c 64 | 69 6d 65 6e 40 20 62 79 |dvance\d|imen@ by|
|00001e80| 31 70 74 20 5c 72 65 70 | 65 61 74 7d 0a 20 20 5c |1pt \rep|eat}.  \|
|00001e90| 73 65 74 62 6f 78 30 3d | 5c 76 62 6f 78 20 74 6f |setbox0=|\vbox to|
|00001ea0| 5c 64 69 6d 65 6e 40 7b | 5c 75 6e 76 62 6f 78 31 |\dimen@{|\unvbox1|
|00001eb0| 7d 0a 20 20 5c 73 65 74 | 62 6f 78 32 3d 5c 76 62 |}.  \set|box2=\vb|
|00001ec0| 6f 78 20 74 6f 5c 64 69 | 6d 65 6e 40 7b 5c 75 6e |ox to\di|men@{\un|
|00001ed0| 76 62 6f 78 33 7d 0a 20 | 20 5c 70 61 67 65 73 6f |vbox3}. | \pageso|
|00001ee0| 66 61 72 7d 0a 5c 64 65 | 66 5c 73 65 65 7b 7b 5c |far}.\de|f\see{{\|
|00001ef0| 73 6c 20 73 65 65 5c 2f | 7d 7e 5c 69 67 6e 6f 72 |sl see\/|}~\ignor|
|00001f00| 65 73 70 61 63 65 73 7d | 0a 5c 64 65 66 5c 61 6c |espaces}|.\def\al|
|00001f10| 73 6f 7b 5c 68 66 69 6c | 5c 70 65 6e 61 6c 74 79 |so{\hfil|\penalty|
|00001f20| 35 30 5c 68 66 69 6c 6e | 65 67 7b 5c 73 6c 20 73 |50\hfiln|eg{\sl s|
|00001f30| 65 65 7e 61 6c 73 6f 5c | 2f 7d 7e 5c 69 67 6e 6f |ee~also\|/}~\igno|
|00001f40| 72 65 73 70 61 63 65 73 | 7d 0a 0a 5c 64 65 66 5c |respaces|}..\def\|
|00001f50| 40 69 64 78 69 74 65 6d | 7b 5c 70 61 72 5c 68 61 |@idxitem|{\par\ha|
|00001f60| 6e 67 69 6e 64 65 6e 74 | 20 34 30 70 74 7d 0a 5c |ngindent| 40pt}.\|
|00001f70| 64 65 66 5c 73 75 62 69 | 74 65 6d 7b 5c 70 61 72 |def\subi|tem{\par|
|00001f80| 5c 68 61 6e 67 69 6e 64 | 65 6e 74 20 34 30 70 74 |\hangind|ent 40pt|
|00001f90| 20 5c 68 73 6b 69 70 20 | 32 30 70 74 7d 0a 5c 64 | \hskip |20pt}.\d|
|00001fa0| 65 66 5c 73 75 62 73 75 | 62 69 74 65 6d 7b 5c 70 |ef\subsu|bitem{\p|
|00001fb0| 61 72 5c 68 61 6e 67 69 | 6e 64 65 6e 74 20 34 30 |ar\hangi|ndent 40|
|00001fc0| 70 74 20 5c 68 73 6b 69 | 70 20 33 30 70 74 7d 0a |pt \hski|p 30pt}.|
|00001fd0| 5c 64 65 66 5c 69 6e 64 | 65 78 73 70 61 63 65 7b |\def\ind|exspace{|
|00001fe0| 5c 70 61 72 20 5c 76 73 | 6b 69 70 20 31 30 70 74 |\par \vs|kip 10pt|
|00001ff0| 20 70 6c 75 73 20 35 70 | 74 20 6d 69 6e 75 73 20 | plus 5p|t minus |
|00002000| 33 70 74 5c 72 65 6c 61 | 78 7d 0a 0a 5c 64 65 66 |3pt\rela|x}..\def|
|00002010| 5c 62 65 67 69 6e 69 6e | 64 65 78 7b 5c 62 65 67 |\beginin|dex{\beg|
|00002020| 69 6e 67 72 6f 75 70 5c | 6c 65 74 5c 69 74 65 6d |ingroup\|let\item|
|00002030| 5c 40 69 64 78 69 74 65 | 6d 0a 25 20 4f 75 74 70 |\@idxite|m.% Outp|
|00002040| 75 74 20 6f 70 65 6e 69 | 6e 67 20 72 6f 75 74 69 |ut openi|ng routi|
|00002050| 6e 65 73 20 67 6f 20 68 | 65 72 65 0a 7d 0a 5c 64 |nes go h|ere.}.\d|
|00002060| 65 66 5c 65 6e 64 69 6e | 64 65 78 7b 0a 25 20 4f |ef\endin|dex{.% O|
|00002070| 75 74 70 75 74 20 63 6c | 6f 73 69 6e 67 20 72 6f |utput cl|osing ro|
|00002080| 75 74 69 6e 65 73 20 67 | 6f 20 68 65 72 65 2e 0a |utines g|o here..|
|00002090| 5c 65 6e 64 67 72 6f 75 | 70 7d 0a 5c 6d 61 6b 65 |\endgrou|p}.\make|
|000020a0| 61 74 6f 74 68 65 72 0a |                         |atother.|        |
+--------+-------------------------+-------------------------+--------+--------+